home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 47 / Amiga Format AFCD47 (Issue 131, Xmas 1999).iso / -serious- / emulation / electrostatic / hidden / install atari 2600 game < prev    next >
Text File  |  1999-10-04  |  2KB  |  106 lines
  1. ; File: Install Atari 2600 Game
  2. ; Author: Neil Cafferkey
  3. ; =============================
  4. ; A script to translate an Atari 2600 game.
  5. ;
  6. ; $VER: "Install Atari 2600 Game" 1.1 (17.6.99)
  7.  
  8.  
  9. ; Set constants
  10.  
  11. (set #kick-too-low-msg "Kickstart 3.0 or greater is required.")
  12. (set #askdir-prompt "In which drawer should %s be installed?")
  13. (set #ask-name-prompt
  14.    "Please enter the name of the Atari 2600 game you want to translate:"
  15. )
  16. (set #ask-name-help @askstring-help)
  17. (set #translating-msg "Translating game...")
  18. (set #disassembly-error-msg
  19.    "An error occurred during the disassembly phase."
  20. )
  21. (set #assembly-error-msg
  22.    "An error occurred during the assembly phase."
  23. )
  24. (set #exit-msg
  25.    (cat "Installation complete!\n"
  26.       "%s can be found in your \"%s\" drawer (or partition)."
  27.    )
  28. )
  29.  
  30.  
  31. ; Check Kickstart version
  32.  
  33. (if (< (/ (getversion) 65536) 39)
  34.    (abort #kick-too-low-msg)
  35. )
  36.  
  37.  
  38. ; Ask for the name of the game
  39.  
  40. (set #app-name (askstring (prompt #ask-name-prompt) (help #ask-name-help)))
  41. (set @app-name #app-name)
  42.  
  43.  
  44. ; Ask where to install to
  45.  
  46. (set #default-dest
  47.    (askdir
  48.       (prompt (#askdir-prompt @app-name))
  49.       (default @default-dest)
  50.       (help @askdir-help)
  51.       (disk)
  52.    )
  53. )
  54.  
  55. (set @default-dest #default-dest)
  56.  
  57.  
  58. ; Translate Atari 2600 program
  59.  
  60. (working #translating-msg)
  61. (if
  62.    (<> 0
  63.       (run
  64.          ("Stack 100000\nElectrostatic \"%s\""
  65.             (tackon @app-name "program")
  66.          )
  67.       )
  68.    )
  69.    (abort #disassembly-error-msg)
  70. )
  71.  
  72. ; Assemble Atari 2600 program
  73.  
  74. (if
  75.    (<> 0
  76.       (run
  77.          ("GigaPhxAss QUIET \"%s\" TO \"%s\""
  78.             @app-name
  79.             (tackon @default-dest @app-name)
  80.          )
  81.       )
  82.    )
  83.    (abort #assembly-error-msg)
  84. )
  85.  
  86. ; Copy an icon for the translated program
  87.  
  88. (copyfiles
  89.    (source "Icons/Game Icon.info")
  90.    (dest @default-dest)
  91.    (newname (cat @app-name ".info"))
  92.    (nogauge)
  93.    (help @copyfiles-help)
  94. )
  95.  
  96. ; Exit the script
  97.  
  98. (exit (#exit-msg @app-name @default-dest) (quiet))
  99.  
  100.  
  101. ; Make sure the standard welcome screen never appears
  102.  
  103. (welcome)
  104.  
  105.  
  106.